home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / J-Jim Butterfield / (n)j2.d64 / battlehymn (.txt) < prev    next >
Commodore BASIC  |  2007-02-24  |  8KB  |  201 lines
  1. 1 REM *******************************
  2. 2 REM * HILDEBRANDT MIDDLE SCHOOL   *
  3. 3 REM * HISTORY FAIR PROJECT 1985   *
  4. 4 REM * EXCERPTS FROM COMPUTE!      *
  5. 5 REM * 10/84 P 177 HAPPY BIRTHDAY  *
  6. 6 REM * BY JIM BUTTERFIELD          *
  7. 7 REM * TYPING ASSISTANCE:  MOM     *
  8. 8 REM * STUDENT AUTHOR OF PLANNING, *
  9. 9 REM *  NOTE VALUES, TIMING,       *
  10. 10 REM*  GRAPHICS & WRITINGS:       *
  11. 11 REM*      MARY KATHERINE HOWE    *
  12. 12 REM*      GRADE 6                *
  13. 90 REM*******************************
  14. 95 TI$="000000"
  15. 96 POKE53280,0:POKE53281,0:REM BLACK
  16. 100 PRINTCHR$(147);:REM CLEAR SCREEN
  17. 101 PRINTCHR$(154): REM COLOR LT BLUE
  18. 102 READS:IFS=0GOTO110
  19. 104 READS$:REM GET WORD
  20. 105 GOSUB1000:REM PRINT WORD ON SCREEN
  21. 106 READ X1,Y1:REM L0/HI BYTES VOICE 1
  22. 107 READ X2,Y2:REM LO/HI BYTES VOICE 2
  23. 108 READ X3,Y3:REM LO/HI BYTES VOICE 3
  24. 109 GOTO102:REM KEEP CHECKING FOR DATA
  25. 110 RESTORE:REM RESET DATA POINTERS
  26. 111 PRINTCHR$(19);:REM HOME THE CURSOR
  27. 112 PRINTCHR$(5):REM COLOR TO WHITE
  28. 113 L1=54272:REM LO-BYTE ADDR VOICE 1
  29. 114 L2=54279:REM LO-BYTE ADDR VOICE 2
  30. 115 L3=54286:REM LO-BYTE ADDR VOICE 3
  31. 116 GOSUB2000
  32. 120 H1=L1+1: REM HI-BYTE ADDR VOICE 1
  33. 121 H2=L2+1: REM HI-BYTE ADDR VOICE 2
  34. 122 H3=L3+1: REM HI-BYTE ADDR VOICE 3
  35. 130 V1=L1+4: REM SET VARIABLE/WAVEFORM1
  36. 131 V2=L2+4: REM SET VARIABLE/WAVEFORM2
  37. 132 V3=L3+4: REM SET VARIABLE/WAVEFORM3
  38. 140 POKE54296,15:REM SOUND IS LOUDEST
  39. 150 POKEV1+1,9:REM ATTACK/DECAY VOICE1
  40. 151 POKEV1+2,0:REM SUSTAIN/RELEASE V1
  41. 160 POKEV2+1,36:REM ATTACK/DECAY V2
  42. 161 POKEV2+2,36:REM SUSTAIN/RELEASE V2
  43. 170 POKEV3+1,18:REM ATTACK/DECAY V3
  44. 171 POKEV3+2,160:REM SUSTAIN/RELEASE V3
  45. 200 POKEV1,16:REM V1 WILL BE TRIANGLE
  46. 201 POKEV2,32:REM V2 WILL BE SAWTOOTH
  47. 202 POKEV3,16:REM V3 WILL BE TRIANGLE
  48. 210 READS:S0=TI+S:REM GET TIMER VALUE
  49. 211 IFS=0GOTO290:REM TIME TO QUIT
  50. 212 READS$:REM READ WORD
  51. 213 GOSUB1000:REM PRINT WORD IN WHITE
  52. 220 READX1,Y1,X2,Y2,X3,Y3:REM READ NOTES
  53. 230 IFX1THENPOKEH1,X1:POKEL1,Y1:POKEV1,17:REM PLAY NOTE 1
  54. 240 IFX2THENPOKEH2,X2:POKEL2,Y2:POKEV2,33:REM PLAY NOTE 2
  55. 250 IFX3THENPOKEH3,X3:POKEL3,Y3:POKEV3,17:REM PLAY NOTE 3
  56. 275 IF TI<S0 GOTO 275:REM DURATION OF NOTE
  57. 280 GOTO200:REM NEXT NOTE
  58. 290 FORJ=L1TO54296:POKEJ,0:NEXTJ:REM                REM:  TURN EVERYTHING OFF
  59. 295 PRINTCHR$(154):REM COLOR TO LT BLUE
  60. 296 REM END:REM QUIT THE PROGRAM
  61. 297 INPUT"PRESS ANY KEY";A$:GOTO3000
  62. 298 END
  63. 300 DATA12,"MINE",  44,193, 37,162, 29,223
  64. 310 DATA24," EYES",  44,193, 37,162, 29,223
  65. 320 DATA12," HAVE",  44,193, 37,162, 29,223
  66. 330 DATA24," SEEN",  44,193, 37,162, 29,223
  67. 340 DATA12," THE",   39,223, 33,135, 22,96
  68. 350 DATA24," GLO",   37,162, 29,223, 22,96
  69. 360 DATA12,"RY",     44,193, 37,162, 29,223
  70. 370 DATA24," OF ",   59,190, 44,193, 29,223
  71. 380 DATA12,"   THE", 67, 15, 44,193, 28,49
  72. 390 DATA24," COM",   75, 69, 44,193, 29,223
  73. 400 DATA12,"ING",    75, 69, 44,193, 29,223
  74. 410 DATA24," OF",    75, 69, 44,193, 29,223
  75. 420 DATA12," THE",   67, 15, 39,223, 28,49
  76. 430 DATA24," LORD",  59,190, 37,162, 29,223
  77. 440 DATA12,"!",       0,  0,  0,  0,  0,0
  78. 450 DATA24,"HE",    59,190, 44,193, 29,223
  79. 460 DATA12," IS",    56, 99, 44,193, 29,223
  80. 470 DATA24," TRAM",  50, 60, 50, 60, 29,223
  81. 480 DATA12,"PING",   50, 60, 50, 60, 29,223
  82. 500 DATA24," OUT",   50, 60, 50, 60, 29,223
  83. 510 DATA12," THE",   56, 99, 44,193, 29,223
  84. 520 DATA24," VIN",   59,190, 50, 60, 39,223
  85. 530 DATA12,"TAGE ",  56, 99, 44,193, 39,223
  86. 540 DATA24,"  WHERE",59,190, 50, 60, 39,223
  87. 550 DATA12," THE",   50, 60, 39,223, 29,223
  88. 560 DATA24," GRAPES",44,193, 37,162, 29,223
  89. 570 DATA12," OF",    50, 60, 39,223, 29,223
  90. 610 DATA24," WRATH", 44,193, 37,162, 29,223
  91. 620 DATA12," ARE",   37,162, 37,162, 29,223
  92. 630 DATA24," STORED",44,193, 37,162, 29,223
  93. 640 DATA12,".",       0,  0,  0,  0,  0,0
  94. 650 DATA24,"HE",    44,193, 37,162, 29,223
  95. 660 DATA12," HATH",  44,193, 37,162, 29,223
  96. 670 DATA24," LOOSED",44,193, 37,162, 29,223
  97. 680 DATA12," THE",   44,193, 37,162, 29,223
  98. 690 DATA24," FATE",  44,193, 37,162, 29,223
  99. 700 DATA12,"FUL",    39,223, 33,135, 22, 96
  100. 710 DATA24," LIGHT", 37,162, 29,223, 22, 96
  101. 720 DATA12,"NING ",  44,193, 37,162, 29,223
  102. 740 DATA24,"   OF",  59,190, 44,193, 29,223
  103. 750 DATA12," HIS",   67, 15, 44,193, 28, 49
  104. 760 DATA24," TERR",  75, 69, 44,193, 29,223
  105. 770 DATA12,"I",      75, 69, 44,193, 29,223
  106. 780 DATA24,"BLE",    75, 69, 44,193, 29,223
  107. 790 DATA12," SWIFT", 67, 15, 39,223, 28,49
  108. 800 DATA24," SWORD", 59,190, 37,162, 29,223
  109. 805 DATA12,".",       0,  0,  0,  0,  0,0
  110. 810 DATA36,"HIS",   59,190, 44,193, 29,223
  111. 820 DATA40," TRUTH", 67, 15, 39,223, 25, 30
  112. 830 DATA40," IS",    67, 15, 39,223, 33,135
  113. 840 DATA40," MARCH", 59,190, 44,193, 37,162
  114. 850 DATA40,"ING",    56, 99, 44,193, 33,135
  115. 860 DATA40," ON",    59,190, 37,162, 29,223
  116. 861 DATA40," [164]",     59,190,  0,  0,  0,  0
  117. 862 DATA40," ...",   59,190,  0,  0,  0,  0
  118. 863 DATA40," ",      59,190,  0,  0,  0,  0
  119. 864 DATA60,"GLO",   44,193, 37,162, 29,223
  120. 866 DATA12,"RY",     39,223, 33,135, 29,223
  121. 868 DATA24," GLO",   37,162, 29,223, 22, 96
  122. 870 DATA12,"RY",     44,193, 37,162, 22, 96
  123. 872 DATA24," HAL",   59,190, 37,162, 22, 96
  124. 874 DATA12,"LE",     67, 15, 39,223, 22, 96
  125. 876 DATA72,"LU",     75, 69, 44,193, 29,223
  126. 878 DATA36,"JAH",    59,190, 37,162, 22, 96
  127. 880 DATA36,"!",       0,  0,  0,  0,  0,0
  128. 882 DATA60,"GLO",   50, 60, 39,223, 29,223
  129. 884 DATA12,"RY",     56, 99, 44,193, 29,223
  130. 886 DATA24," GLO",   59,190, 50, 60, 29,223
  131. 888 DATA12,"RY",     56, 99, 44,193, 29,223
  132. 890 DATA24," HAL",   59,190, 50, 60, 29,223
  133. 892 DATA12,"LE",     50, 60, 39,223, 29,223
  134. 894 DATA72,"LU",     44,193, 37,162, 29,223
  135. 896 DATA36,"JAH",    37,162, 29,223, 22,96
  136. 898 DATA36,"!",       0,  0,  0,  0,  0,0
  137. 900 DATA60,"GLO",   44,193, 37,162, 29,223
  138. 902 DATA12,"RY",     39,223, 33,135, 29,223
  139. 904 DATA24," GLO",   37,162, 37,162, 29,223
  140. 906 DATA12,"RY",     44,193, 37,162, 22, 96
  141. 908 DATA24," HAL",   59,190, 37,162, 22, 96
  142. 910 DATA12,"LE",     67, 15, 39,223, 22, 96
  143. 912 DATA72,"LU",     75, 69, 44,193, 29,223
  144. 914 DATA36,"JAH,",   59,190, 37,162, 22, 96
  145. 918 DATA36,"HIS",   59,190, 44,193, 29,223
  146. 920 DATA39," TRUTH", 67, 15, 39,223, 25, 30
  147. 922 DATA42," IS",    67, 15, 39,223, 33,135
  148. 924 DATA45," MARCH", 59,190, 44,193, 37,162
  149. 926 DATA48,"ING",    56, 99, 44,193, 33,135
  150. 928 DATA200," ON...",59,190, 37,162, 29,223
  151. 999 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,
  152. 1000 PRINTS$;:REM PRINT THE WORD
  153. 1005 IFRIGHT$(S$,1)<"0"THENPRINT:REM              GO TO NEXT LINE
  154. 1010 RETURN:REM RETURN FROM SUBROUTINE
  155. 2000 PRINT"              [205] [194] [206]
  156. 2001 [153]"            LEN       LEN
  157. 2002 PRINT"            [205] [213][201][209][213][201] [206]                               [206] [194] [166] [194] [205]
  158. 2003 [153]"            LEN PEEK(null)SPC(MID$PEEK LEN
  159. 2004 PRINT"
  160. 2005 [153]"              (null) PEEK (null)
  161. 2007 PRINT"":REM HOME CURSOR
  162. 2008 RETURN
  163. 3000 REM THIS PART IS FOR WRITING!
  164. 3001 PRINT"[147]"
  165. 3010 PRINT"JULIA WARD HOWE, THE AUTHOR OF THIS WAR SONG, WAS BORN IN NEW YORK
  166. 3020 [153]"MAY 27, 1819.  SHE WROTE THE
  167. 3030 PRINT"BATTLE HYMN IN DECEMBER, 1861
  168. 3031 [153]"       (WHICH WAS THE YEAR THAT"
  169. 3032 [153]"        THE CIVIL WAR BEGAN)
  170. 3033 PRINT"WHEN SHE HEARD SOME SOLDIERS SINGING"
  171. 3035 PRINTCHR$(34)"JOHN BROWN'S BODY"CHR$(34)"."
  172. 3040 PRINT"SHE WAS MARRIED TO SAMUEL GRIDLEY HOWE  IN 1843.
  173. 3050 [153]"SAMUEL & JULIA WERE ABOLITIONISTS, AND
  174. 3060 PRINT"WERE STEADFAST TO THE NORTH."
  175. 3090 INPUT"PRESS RETURN[146]";R$
  176. 4000 REM BIBLIOGRAPHY
  177. 4001 PRINT"[147]"
  178. 4002 PRINT"BIBLIOGRAPHY"
  179. 4005 FORI=1TO25:PRINT:FORJ=1TO50:NEXTJ:NEXTI
  180. 4010 PRINT"1. THE GOLDEN BOOK OF FAVORITE SONGS,
  181. 4015 [153]"TWENTY-FIRST EDITION, BY
  182. 4020 PRINT"JOHN W. BEATTIE & E. JANE WISENALL
  183. 4030 [153]"HALL & MC CREARY COMPANY,":[153]"CHICAGO, ILLINOIS"
  184. 4040 [153]
  185. 4050 [153]"2. AMERICA SINGS, BY
  186. 4060 PRINT"HUGO FREY
  187. 4070 [153]"COLUMBIA PICTURES PUBLICATIONS
  188. 4080 PRINT"HIALEAH, FLORIDA"
  189. 4090 PRINT"COPYRIGHT 1935 AND ASSIGNED 1983"
  190. 5000 PRINT"3. COMMODORE 64 PROGRAMMER'S REFERENCE  GUIDE, FIRST EDITION,
  191. 5010 [153]"BY COMMODORE BUSINESS MACHINES, INC. AND HOWARD W. SAMS & CO., INC.
  192. 5020 PRINT"COPYRIGHT 1983
  193. 5030 [133]"PRESS RETURNWAIT";R$
  194. 5040 [153]"LOAD4. COMPUTE! MAGAZINE, OCTOBER 1984,     VOLUME 6, NO. 10, PAGE 177
  195. 5050 PRINT"COMMODORE 64 MUSIC: HAPPY BIRTHDAY"
  196. 5060 PRINT"BY JIM BUTTERFIELD
  197. 6000 [153]"5. COMMODORE 64 USER' GUIDE, FIRST      EDITION
  198. 6010 PRINT"BY COMMODORE BUSINESS MACHINES, INC.
  199. 6020 [153]"COPYRIGHT 1982
  200. 6030 PRINT"[159]TIME ELAPSED ="MID$(TI$,3,2)" MINUTES AND "RIGHT$(TI$,2)" SECONDS.
  201.